home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Utilities / Programming / EnterAct 3.5 / Drag_on Modules / hAWK programs / $RunClip < prev    next >
Encoding:
Text File  |  1992-12-13  |  562 b   |  17 lines  |  [TEXT/KEEN]
  1. # $RunClip : place your program on the clipboard with Copy, then select
  2. # this program to run what's on the clip. Set input option as needed
  3. # before running, as when running a regular program.
  4. # Note "Set Variables" is not supported - instead, set your variables
  5. # as needed at the beginning of your program.
  6.  
  7. BEGIN {
  8.     progFile = STDPATH "Drag_on Modules:hAWK programs:$hAWKTempProgram"
  9.     print getclip() > progFile
  10.     close(progFile)
  11.     argv[x++] = "hAWK"
  12.     argv[x++] = "-f" progFile
  13.     argv[x++] = "--"
  14.     for (j = 1; j < ARGC; ++j)
  15.         argv[x++] = ARGV[j]
  16.     hAWK(argv)
  17.     }